home *** CD-ROM | disk | FTP | other *** search
- /* $Id: x07c.c,v 1.9 1994/06/30 17:57:34 mjl Exp $
- * $Log: x07c.c,v $
- * Revision 1.9 1994/06/30 17:57:34 mjl
- * All C example programs: made another pass to eliminate warnings when using
- * gcc -Wall. Lots of cleaning up: got rid of includes of math.h or string.h
- * (now included by plplot.h), eliminated redundant casts, put in more
- * uniform comments, and other minor changes.
- *
- * Revision 1.8 1994/03/30 07:21:51 mjl
- * Changes to all C example programs: special handling for malloc re: header
- * files eliminated, include of stdio.h and stdlib.h eliminated (now done
- * by plplot.h), include of "plplot.h" changed to <plplot.h> to enable
- * simpler builds by the general user, some cleaning up also.
- */
-
- /* x07c.c
-
- Font demo.
- */
-
- #ifdef MSDOS
- #pragma optimize("",off)
- #endif
-
- #include <plplot.h>
-
- static int base[17] =
- {0, 200, 500, 600, 700, 800, 900,
- 2000, 2100, 2200, 2300, 2400, 2500, 2600, 2700, 2800, 2900};
-
- /*----------------------------------------------------------------------*\
- * main
- *
- * Displays the entire "plsym" symbol (font) set.
- \*----------------------------------------------------------------------*/
-
- int
- main(int argc, char *argv[])
- {
- char text[4];
- int i, j, k, l;
- PLFLT x, y;
-
- /* Parse and process command line arguments */
-
- (void) plParseInternalOpts(&argc, argv, PL_PARSE_FULL);
-
- /* Initialize plplot */
-
- plinit();
-
- plfontld(1);
- for (l = 0; l < 17; l++) {
- pladv(0);
-
- /* Set up viewport and window */
-
- plcol(2);
- plvpor(0.15, 0.95, 0.1, 0.9);
- plwind(0.0, 1.0, 0.0, 1.0);
-
- /* Draw the grid using plbox */
-
- plbox("bcgt", 0.1, 0, "bcgt", 0.1, 0);
-
- /* Write the digits below the frame */
-
- plcol(15);
- for (i = 0; i <= 9; i++) {
- sprintf(text, "%d", i);
- plmtex("b", 1.5, (0.1 * i + 0.05), 0.5, text);
- }
-
- k = 0;
- for (i = 0; i <= 9; i++) {
-
- /* Write the digits to the left of the frame */
-
- sprintf(text, "%d", base[l] + 10 * i);
- plmtex("lv", 1.0, (0.95 - 0.1 * i), 1.0, text);
- for (j = 0; j <= 9; j++) {
- x = 0.1 * j + 0.05;
- y = 0.95 - 0.1 * i;
-
- /* Display the symbols */
-
- plsym(1, &x, &y, base[l] + k);
- k = k + 1;
- }
- }
-
- plmtex("t", 1.5, 0.5, 0.5, "PLplot Example 7 - PLSYM symbols");
- }
- plend();
- exit(0);
- }
-